LINE INPUT "vvedite text: ", a$
FOR i = 1 TO LEN(a$)
IF MID$(a$, i, 1) = " " THEN k = k + 1
NEXT
PRINT k / LEN(a$) * 100; "%"
Тестирование выполнено в программе QB64 ( Скачать )
LINE INPUT "vvedite text: ", a$
FOR i = 1 TO LEN(a$)
IF MID$(a$, i, 1) = " " THEN k = k + 1
NEXT
PRINT k / LEN(a$) * 100; "%"
Тестирование выполнено в программе QB64 ( Скачать )